object frmOptions: TfrmOptions Left = 256 Top = 355 BorderIcons = [] BorderStyle = bsDialog Caption = ' Properties' ClientHeight = 359 ClientWidth = 427 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 324 Width = 427 Height = 35 Align = alBottom BevelOuter = bvNone TabOrder = 0 object btnOK: TButton Left = 6 Top = 6 Width = 75 Height = 25 Caption = '&OK' Default = True TabOrder = 0 OnClick = btnOKClick end object btnCancel: TButton Left = 90 Top = 6 Width = 75 Height = 25 Caption = '&Cancel' TabOrder = 1 OnClick = btnCancelClick end end object Panel2: TPanel Left = 0 Top = 0 Width = 427 Height = 8 Align = alTop BevelOuter = bvNone TabOrder = 1 end object Panel3: TPanel Left = 0 Top = 8 Width = 5 Height = 316 Align = alLeft BevelOuter = bvNone TabOrder = 2 end object Panel4: TPanel Left = 422 Top = 8 Width = 5 Height = 316 Align = alRight BevelOuter = bvNone TabOrder = 3 end object PageControl1: TPageControl Left = 5 Top = 8 Width = 417 Height = 316 ActivePage = tabHolidays Align = alClient TabOrder = 4 object tabHolidays: TTabSheet Caption = '&Holidays' object labCalHolidays: TLabel Left = 207 Top = 15 Width = 192 Height = 13 Alignment = taCenter AutoSize = False end object btnAddCalHolidays: TSpeedButton Left = 175 Top = 80 Width = 25 Height = 25 Hint = 'Add specific date to the holidays list.' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333FF3333333333333003333333333333F77F33333333333009033 333333333F7737F333333333009990333333333F773337FFFFFF330099999000 00003F773333377777770099999999999990773FF33333FFFFF7330099999000 000033773FF33777777733330099903333333333773FF7F33333333333009033 33333333337737F3333333333333003333333333333377333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 OnClick = btnAddCalHolidaysClick end object Bevel1: TBevel Left = 170 Top = 180 Width = 240 Height = 9 Shape = bsBottomLine end object btnAddWeekDayHolidays: TSpeedButton Left = 175 Top = 200 Width = 25 Height = 25 Hint = 'Add a week day to the holiday list.' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333FF3333333333333003333333333333F77F33333333333009033 333333333F7737F333333333009990333333333F773337FFFFFF330099999000 00003F773333377777770099999999999990773FF33333FFFFF7330099999000 000033773FF33777777733330099903333333333773FF7F33333333333009033 33333333337737F3333333333333003333333333333377333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 OnClick = btnAddWeekDayHolidaysClick end object Bevel2: TBevel Left = 170 Top = 230 Width = 240 Height = 9 Shape = bsBottomLine end object btnDelHolidays: TSpeedButton Left = 175 Top = 250 Width = 25 Height = 25 Hint = 'Remove selected item from the holidays list.' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333FF3333333333333003333 3333333333773FF3333333333309003333333333337F773FF333333333099900 33333FFFFF7F33773FF30000000999990033777777733333773F099999999999 99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900 33333333337F3F77333333333309003333333333337F77333333333333003333 3333333333773333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 OnClick = btnDelHolidaysClick end object calHolidays: TCalendar Left = 206 Top = 30 Width = 192 Height = 108 StartOfWeek = 0 TabOrder = 0 end object updCalHolidays: TUpDown Left = 206 Top = 140 Width = 192 Height = 16 Min = 0 Orientation = udHorizontal Position = 0 TabOrder = 1 Wrap = False OnClick = updCalHolidaysClick end object chkRecursiveHolidays: TCheckBox Left = 208 Top = 163 Width = 79 Height = 17 Hint = 'Use this check if you want add a recursive'#13'holiday to the list, ' + 'like Christmas.' Caption = 'Recursive' State = cbChecked TabOrder = 2 end object cmbWeekDayHolidays: TComboBox Left = 214 Top = 202 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 3 end object lsvHolidays: TListView Left = 6 Top = 6 Width = 161 Height = 276 Columns = < item Caption = 'Holidays' Width = 6 WidthType = ( -1) end> ReadOnly = False ShowColumnHeaders = False TabOrder = 4 ViewStyle = vsReport end end object tabColors: TTabSheet Caption = '&Colors' object btnChangeColor: TButton Left = 265 Top = 20 Width = 90 Height = 25 Caption = '&Change Color' TabOrder = 0 OnClick = btnChangeColorClick end object lsvColor: TListView Left = 6 Top = 6 Width = 125 Height = 272 OnDblClick = lsvColorDblClick Columns = < item Caption = 'Option' Width = 0 WidthType = ( -1) end> ReadOnly = True OnChange = lsvColorChange ShowColumnHeaders = False TabOrder = 1 ViewStyle = vsReport end object Panel5: TPanel Left = 182 Top = 20 Width = 50 Height = 50 BevelOuter = bvLowered TabOrder = 2 object imgColor: TImage Left = 1 Top = 1 Width = 48 Height = 48 Align = alClient end end object btnDefaultColor: TButton Left = 265 Top = 45 Width = 90 Height = 25 Caption = '&Restore Default' TabOrder = 3 OnClick = btnDefaultColorClick end object GroupBox1: TGroupBox Left = 156 Top = 86 Width = 227 Height = 185 Caption = ' Explanation ' TabOrder = 4 object lblSpiegaColore: TLabel Left = 15 Top = 18 Width = 198 Height = 152 AutoSize = False end end end object tabViewOptions: TTabSheet Caption = '&Layout ' object GroupBox2: TGroupBox Left = 6 Top = 6 Width = 140 Height = 167 Caption = ' Month View ' TabOrder = 0 object Label1: TLabel Left = 12 Top = 45 Width = 83 Height = 13 Caption = 'Time Bar Range :' end object chkShowBar: TCheckBox Left = 12 Top = 20 Width = 108 Height = 17 Caption = 'Show Time Bar' TabOrder = 0 end object edtBarRangeFrom: TEdit Left = 40 Top = 64 Width = 25 Height = 21 TabOrder = 1 Text = '8' end object updBarRangeFrom: TUpDown Left = 65 Top = 64 Width = 15 Height = 21 Associate = edtBarRangeFrom Min = 0 Max = 23 Position = 8 TabOrder = 2 Wrap = False end object edtBarRangeTo: TEdit Left = 83 Top = 65 Width = 25 Height = 21 TabOrder = 3 Text = '19' end object updBarRangeTo: TUpDown Left = 108 Top = 65 Width = 15 Height = 21 Associate = edtBarRangeTo Min = 0 Max = 23 Position = 19 TabOrder = 4 Wrap = False end object chkShowMoon: TCheckBox Left = 12 Top = 100 Width = 122 Height = 17 Caption = 'Show Moon Phases' TabOrder = 5 end object chkShowDailyMemo: TCheckBox Left = 12 Top = 120 Width = 115 Height = 17 Caption = 'Show Daily Memo' TabOrder = 6 end object chkShowIcon: TCheckBox Left = 12 Top = 140 Width = 97 Height = 17 Caption = 'Show Icon' TabOrder = 7 end end object GroupBox4: TGroupBox Left = 6 Top = 180 Width = 140 Height = 99 Caption = ' Wall Calendar ' TabOrder = 1 object chkAutoHide: TCheckBox Left = 12 Top = 20 Width = 82 Height = 17 Caption = 'Auto Hide' TabOrder = 0 OnClick = chkAutoHideClick end object edtHideSec: TMaskEdit Left = 100 Top = 17 Width = 26 Height = 21 EditMask = '90;0; ' MaxLength = 2 TabOrder = 1 end end end object tabAlarm: TTabSheet Caption = '&Sound' object GroupBox3: TGroupBox Left = 6 Top = 6 Width = 246 Height = 181 Caption = ' Alarm ' TabOrder = 0 object btnGetSoundFile: TSpeedButton Left = 207 Top = 100 Width = 22 Height = 22 Enabled = False Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333FF3333333333333003333333333333F77F33333333333009033 333333333F7737F333333333009990333333333F773337FFFFFF330099999000 00003F773333377777770099999999999990773FF33333FFFFF7330099999000 000033773FF33777777733330099903333333333773FF7F33333333333009033 33333333337737F3333333333333003333333333333377333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 OnClick = btnGetSoundFileClick end object radUseSpeaker: TRadioButton Tag = 2 Left = 12 Top = 40 Width = 113 Height = 17 Caption = 'Use Speaker Beep' TabOrder = 0 OnClick = radUseWaveSoundClick end object radUseStandardSound: TRadioButton Tag = 3 Left = 12 Top = 60 Width = 126 Height = 17 Caption = 'Use Standard Sound' Checked = True TabOrder = 1 TabStop = True OnClick = radUseWaveSoundClick end object radUseWaveSound: TRadioButton Tag = 4 Left = 12 Top = 80 Width = 141 Height = 17 Caption = 'Use Specific Wave File' TabOrder = 2 OnClick = radUseWaveSoundClick end object edtSoundFile: TEdit Left = 30 Top = 100 Width = 175 Height = 21 Enabled = False TabOrder = 3 end object radNoSound: TRadioButton Tag = 1 Left = 12 Top = 20 Width = 82 Height = 17 Caption = 'No Sound' TabOrder = 4 OnClick = radUseWaveSoundClick end object chkPopUpMessage: TCheckBox Left = 12 Top = 130 Width = 121 Height = 17 Caption = 'Pop Up Message' TabOrder = 5 end object chkRepeatSound: TCheckBox Left = 12 Top = 150 Width = 97 Height = 17 Caption = 'Repeat Sound' TabOrder = 6 OnClick = chkRepeatSoundClick end object edtRepeatSound: TEdit Left = 117 Top = 147 Width = 38 Height = 21 Enabled = False TabOrder = 7 Text = '1' end object updRepeatSound: TUpDown Left = 155 Top = 147 Width = 15 Height = 21 Associate = edtRepeatSound Enabled = False Min = 1 Position = 1 TabOrder = 8 Wrap = False end end end end object dlgColor: TColorDialog Ctl3D = True Options = [cdFullOpen] Left = 390 Top = 65534 end object dlgOpen: TOpenDialog DefaultExt = 'wav' FileEditStyle = fsEdit Filter = 'Sound File|*.wav' Title = 'Choose Sound File' Left = 358 end end